Imports DAO
Imports DTO

Public Class NhapDiemBus
    Dim nd As New NhapDiemDAO
    Public Function LayBang() As DataTable
        Return nd.LayBang
    End Function
    Public Function HocKi() As DataTable
        Return nd.HocKi
    End Function
    Public Function LoaiKiemTra() As DataTable
        Return nd.LoaiKiemTra
    End Function
    Public Function Lop(ByVal user As String) As DataTable
        Return nd.Lop(user)
    End Function
    Public Function NamHienTai() As String
        Return nd.NamHienTai
    End Function
    Public Function MaMonHoc(ByVal user As String) As String
        Return nd.MaMonHoc(user)
    End Function
    Public Function MaDiem() As String
        Return nd.MaDiem
    End Function
    Public Function ChkCapNhat(ByVal MaLop As String, ByVal MaLKT As String, ByVal HocKy As String, ByVal MaMH As String) As DataTable
        Return nd.ChkCapNhat(MaLop, MaLKT, HocKy, MaMH)
    End Function
    Public Sub NhapDiem(ByVal d As DiemDTO)
        nd.NhapDiem(d)
    End Sub
    Public Sub CapNhat(ByVal d As DiemDTO)
        nd.CapNhat(d)
    End Sub
    Public Function TrungBinhMon(ByVal MaHocSinh As String, ByVal HocKi As String, ByVal MaMonHoc As String) As Double
        Dim nd As New NhapDiemDAO
        Return nd.TrungBinhMon(MaHocSinh, HocKi, MaMonHoc)
    End Function
    Public Sub CapNhatDiemTBMon(ByVal MaHocSinh As String, ByVal HocKi As String, ByVal MaMonHoc As String)
        Dim nd As New NhapDiemDAO
        nd.CapNhatDiemTBMon(MaHocSinh, HocKi, MaMonHoc)
    End Sub
End Class

